home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / defs / realinou.def < prev    next >
Text File  |  1992-03-11  |  2KB  |  55 lines
  1. DEFINITION MODULE RealInOut;
  2. (*        File :    RealInOut.def                       *)
  3. (*        Date:   Octeber , 1986                       *)
  4. (*        By:  Morris                           *)
  5. (*                                       *)
  6. (*   SCCSID  = "%R%.%L%    %G%";                        *)
  7. (*
  8. *    Copyright (c) 1985, 1986 by
  9. *    Djavaheri Bros., Foster City, California.
  10. *    All Rights Reserved.
  11. *
  12. *    This software is furnished under a license and may be used and copied
  13. *    only  in accordance with  the  terms  of  such  license and  with the
  14. *    inclusion of the above copyright notice.  This software or  any other
  15. *    copies thereof may not be provided or otherwise made available to any
  16. *    other  person.   No title to and ownership of the  software is  herby
  17. *    transferred.
  18. *
  19. *    The information in this software is  subject to change without notice
  20. *    and  should  not be construed as a commitment by Djavaheri Bros.   No
  21. *    warranty is implied or expressed.
  22. *)
  23. (*                                       *)
  24. (*    History of Modifcation                           *)
  25. (*    Date        Who            Reasone               *)
  26.  
  27.     (*    as defined by Wirth,1983, pp104-5
  28.  
  29.         entered by Philip E. Rosine
  30.         25 Nov 83    *)
  31.    
  32.    EXPORT QUALIFIED ReadReal, WriteReal, WriteRealOct, Done;
  33.  
  34.    VAR Done: BOOLEAN;
  35.  
  36.    PROCEDURE ReadReal(VAR x: REAL);
  37.     (* Read REAL number  x according to syntax:
  38.       ["+"|"-"]digit{digit}["."digit{digit}]["E"["+"|"-"]digit[digit]]
  39.      Done := "a number was read".
  40.      At most 7 digits are significant, leading zeroes not
  41.      counting.  Maximum exponent is 38.  Input terminates
  42.      with a blank or any control character.  DEL is used for
  43.      backspacing.    *)
  44.    
  45.    PROCEDURE WriteReal(x: REAL; n: CARDINAL);
  46.     (* Write x using n characters.  If fewer than n
  47.     characters are needed, leading blanks are inserted.  *)
  48.    
  49.    PROCEDURE WriteRealOct(x: REAL);
  50.     (* Write x in octal form -- two octal words are written
  51.     showing the memory representation of the real x --
  52.     fieldwidth is 13 *)
  53.  
  54. END RealInOut.
  55.